home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / userbox / demoversionen / filecutter / hd_install.d < prev    next >
Encoding:
Text File  |  1996-07-20  |  1.5 KB  |  75 lines
  1. (set #introduction
  2. (cat "\nDu kannst mit diesem Script \n\nPSILON's "
  3.      "File Cutter\n\n auf eine Festplatte installieren."
  4.      "\n\nFür den File Cutter wird mindestens OS2.04\n"
  5.      "benötigt."))
  6.  
  7. (set #askdir-help
  8. (cat "Du kannst hier das Verzeichniss auswählen."))
  9.  
  10. (set #copyfiles-help
  11. (cat "Es wird kopiert."))
  12.  
  13. (set #COPVERZ (cat "\nWohin soll der File Cutter kopiert werden?\n\nEs wird ein neues Verzeichniss angelegt."))
  14. (set #COPYFiles (cat "\n Kopiere Dateien.\n\n"))
  15.  
  16. (Procedure Inst_PatternFiles
  17.  (set @Dest_File (tackon @Ziel @Dest))
  18.  (if                                         ; Verzeichnis erzeugen
  19.   (= (exists @Dest_File) 0)
  20.   (makedir (@Dest_File))
  21.  )
  22.  (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest_File))
  23.  (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest_File))
  24. )
  25.  
  26. (complete 0)
  27. (message #introduction)
  28. (welcome)
  29.  
  30. (set @default-dest
  31.  (askdir
  32.   (prompt  #COPVERZ)
  33.   (help    #askdir-help)
  34.   (default "")
  35.  )
  36. )
  37.  
  38. (if
  39.  (= (exists @default-dest) 0)
  40.  (makedir @default-dest)
  41. )
  42.  
  43. (set @Ziel (tackon @default-dest "FileCutter"))
  44. (if
  45.  (= (exists @Ziel) 0)
  46.  (makedir (@Ziel))
  47. )
  48.  
  49. (complete 20)
  50.  
  51. (askdisk
  52.  (prompt "\n\n Bitte legen Sie die Diskette File Cutter v1.2 ein")
  53.  (help #askdir-help)
  54.  (dest "File Cutter v1.2")
  55. )
  56.  
  57. (complete 40)
  58.  
  59. (
  60.  (set @Source "")
  61.  (set @Dest "")
  62.  (set @Pattern "#?")
  63.  (set @Size 0)
  64.  (Inst_PatternFiles)
  65. )
  66.  
  67. (complete 75)
  68.  
  69. (message
  70.  (cat "Die Installation des Programms 'File Cutter' ist hiermit\n"
  71.       "vollständig.\n\n")
  72. )
  73.  
  74. (complete 100)
  75.